home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Plus 1995 #5 & #6
/
Amiga Plus CD - 1995 - No. 5 and 6.iso
/
pd
/
serien
/
purity
/
nr.21
/
modtopas
/
txt
/
kontest.mod
< prev
next >
Wrap
Text File
|
1995-04-23
|
2KB
|
96 lines
(**********************************************************************
:Program. KonTest.mod
:Contents. Testet einige TP-Module und ModToPas
:Author. Markus Uhlendahl
:Address. Vorm Burgtor 16, D-4408 Dülmen
:Phone. 02594/81540
:Copyright. Public Domain
:Language. Modula-2
:Translator. M2Amiga AMSoft V3.3d
**********************************************************************)
MODULE KonTest;
FROM TPFile IMPORT Assign,Reset,Rewrite,Datei,WriteFReal,ReadFReal,Close,
ReadFString,WriteFString,ReadF,WriteF,ReadFInt,WriteFInt;
FROM TPMath IMPORT Sin,Cos,Round,Frac;
FROM TPScreen IMPORT ClrScr,Gotoxy,DelLine,InsLine;
FROM TPSystem IMPORT New,Dispose,MemAvail,Hi,Lo;
FROM InOut IMPORT WriteString,WriteLn,Write,WriteInt;
FROM RealInOut IMPORT WriteReal;
VAR r,a,b : REAL;
x,y,i : INTEGER;
f : Datei;
s : ARRAY[0..20] OF CHAR;
c : CHAR;
p : POINTER TO INTEGER;
BEGIN
ClrScr;
r:=0.0;
WHILE (r<6.28) DO
a:=40.0+Sin (r)*40.0;
b:=14.0+Cos (r)*12.0;
x:=INTEGER(a);
y:=INTEGER(b);
Gotoxy (x,y);
WriteString ("*");
r:=r+0.05;
Gotoxy (1,1);
WriteReal (a,10,2);a:=Frac(a);WriteReal (a,10,2);
END;
Gotoxy (1,1);
FOR i:=1 TO 20 DO
DelLine;
InsLine;
END;
ClrScr;
WriteString ("Speichere Zahlen auf Datei ...");WriteLn;
Assign (f,"ram:test");
Rewrite (f);
FOR i:=1 TO 5 DO
WriteFReal (f,3.5);
WriteFString (f,"Harald");
WriteF (f,"p");
WriteFInt (f,2343);
END;
Close (f);
WriteString ("Lese Zahlen von Datei ...");WriteLn;
Assign (f,"ram:test"); (* hier Filenamen ändern *)
Reset (f);
FOR i:=1 TO 5 DO
ReadFReal (f,r);
r:=Round (r); (* Fehlerhaft ? *)
WriteReal (r,10,2);WriteLn;
ReadFString (f,s);
WriteString (s);WriteLn;
ReadF (f,c);
Write (c);WriteLn;
ReadFInt (f,x);
WriteInt (x,10);WriteLn;
END;
Close (f);
New (p);
p^:=34;
WriteInt (p^,10);WriteLn;
Dispose (p);
x:=MemAvail ();
WriteInt (x,10);WriteLn;
y:=256;
y:=Hi (y);
x:=256;
x:=Lo (x);
WriteInt (x,5);WriteLn;
WriteInt (y,5);WriteLn;
END KonTest.